(display "\n========================================\n")
(define x (list 1 (list 2 (list 3 4))))
(display x)
(newline)
(display (cdr x))
(newline)
(display (car (cdr x)))


;  (1 (2 (3 4)))       ((2 (3 4)))
; [*]---------------> [*]
;  |                   |
;  |                   |
;  v                   v (2 (3 4))         ((3 4))
;  1                  [*]---------------> [*]
;                      |                   |
;                      |                   |
;                      v                   v (3 4)             (4)
;                      2                  [*]---------------> [*]---------------> '()
;                                          |                   |
;                                          |                   |
;                                          v                   v
;                                          3                   4

;  (1 (2 (3 4)))
;    *
;   / \
;  /   \  (2 (3 4))
; 1     *
;      / \
;     /   \  (3 4)
;    2     *
;         / \
;        /   \
;       3     4

(display "\n========================================\n")
